home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / finpak.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  13.0 KB  |  367 lines
  1. 10  DIM Z$(5)
  2. 20  DIM M$(5)
  3. 21  PR$="####.##%"
  4. 22  V$="$$#,###,###,###.##"
  5. 23  I$="###.##%"
  6. 24  D$="--------------------------------------------------------------------------------"
  7. 25  KEY OFF
  8. 26  I2$="##"
  9. 27  Y$="Y":N$="N"
  10. 30  DEFDBL J,B,R,A,Q,P,T,Y
  11. 40  CLS
  12. 50  PRINT D$;
  13. 60  PRINT SPC(38);"MENU"
  14. 70  PRINT D$;
  15. 80  PRINT "(1) Future Value of Investment                  (11) Depreciated Investment"
  16. 90  PRINT
  17. 100  PRINT "(2) Future Value of Annuity                     (12) Salvage Value Year End"
  18. 110  PRINT
  19. 120  PRINT "(3) Future Value of Savings                     (13) Discounted Commercial Paper"
  20. 140  PRINT "(4) Withdrawals From Investment                 (14) Loan Principal"
  21. 150  PRINT
  22. 160  PRINT "(5) Minimum Investment for Income               (15) Loan Payment Schedules"
  23. 170  PRINT
  24. 180  PRINT "(6) Income From Investments                     (16) Final Loan Payments"
  25. 185  PRINT
  26. 190  PRINT "(7) Nominal Interest Rates                      (17) Remaining Loan Balance"
  27. 200  PRINT
  28. 210  PRINT "(8) Effective Interest Rates                    (18) Loan Repayment Periods"
  29. 220  PRINT
  30. 230  PRINT "(9) Earned Interest Table                       (19) Loan Annual Interest Rate"
  31. 240  PRINT
  32. 250  PRINT "(10) Annual Depreciation Rate                   (20) Mortgage Amortization Table"
  33. 255  LOCATE 23,1,1
  34. 260  PRINT D$;
  35. 270  INPUT "Select a Program by Number (0 to Exit): ";Z
  36. 280  IF Z=0 THEN 5000
  37. 290  ON Z GOTO 330,510,690,880,1100,1330,1560,1780,1960,2030,2230,2420,2610
  38. 300  IF Z>14 THEN Z1=Z-13
  39. 310  ON Z1 GOTO 2820,2980,3170,3410,3670,3850,3910
  40. 320  GOTO 40
  41. 330  GOSUB 4500
  42. 340  PRINT"                         #1 Future Value of Investment":PRINT D$;
  43. 345  LOCATE 23,1:PRINT D$;
  44. 350  LOCATE 8,1:INPUT "Enter the Initial Value of Investment: ";P:LOCATE 8,63:PRINT USING V$;P
  45. 360  INPUT "Enter Nominal Interest Rate: ";I:LOCATE 10,63:PRINT USING I$;I
  46. 410  PRINT:INPUT "Enter Number of Compounding Periods Each Year: ";N:LOCATE 12,63:PRINT N
  47. 420  PRINT
  48. 430  INPUT "Enter Number of Years for the Investment: ";Y:LOCATE 14,63:PRINT Y
  49. 440  PRINT
  50. 450  I=I/N/100
  51. 460  T=P*(I+1)^(N*Y):PRINT:PRINT
  52. 470  PRINT"Future Value of This Investment is: ";:LOCATE 18,63:COLOR 15,8:PRINT USING V$;T:COLOR 7
  53. 480  LOCATE 25,1:INPUT "Want Another Future Value Calculation (Y or N): ";ANS$
  54. 490  IF LEFT$(ANS$,1)=Y$ THEN 330 ELSE 40
  55. 510  GOSUB 4500:PRINT"                   Future Value of Regular Deposits - Annunity":PRINT D$;
  56. 515  LOCATE 23,1:PRINT D$;
  57. 550  LOCATE 8,1:INPUT "Enter Amount of Regular Deposit: ";R
  58. 560  LOCATE 8,63:PRINT USING V$;R
  59. 570  LOCATE 10,1:INPUT "Enter Nominal Interest Rate: ";I:LOCATE 10,65:PRINT USING I$;I
  60. 590  PRINT:INPUT "Enter Number of Deposits Each Year: ";N:LOCATE 12,65:PRINT N
  61. 610  PRINT:INPUT "Enter the Number of Years: ";Y:LOCATE 14,65:PRINT Y
  62. 620  I=I/N/100
  63. 630  T=R*((I+1)^(N*Y)-1)/I
  64. 650  PRINT:PRINT "FUTURE VALUE IS: ";:LOCATE 16,63:COLOR 10,8:PRINT USING V$;T:COLOR 7
  65. 660  LOCATE 25,1:INPUT "Another Future Value Calculation (Y or N): ";ANS$
  66. 670  IF LEFT$(ANS$,1)="y" THEN 510 ELSE CLS: GOTO 40
  67. 690  GOSUB 4500
  68. 700  PRINT "                    Future Value of Annuity or Savings Account"
  69. 710  GOSUB 4510
  70. 720  LOCATE 8,1:INPUT "Enter Desired Future Value: ";T:LOCATE 8,63:PRINT USING V$;T
  71. 740  INPUT "Enter Nominal Interest Rate: ";I:LOCATE 10,63:PRINT USING I$;I
  72. 750  PRINT:INPUT "Enter Number of Deposits Per Year: ";N:LOCATE 12,63:PRINT N
  73. 780  PRINT:INPUT "Enter the Number of Years: ";Y:LOCATE 14,63:PRINT Y
  74. 790  I=I/N/100
  75. 800  R=T*I/((I+1)^(N*Y)-1)
  76. 802  R$=STR$(R):T$=STR$(T)
  77. 804  L1=LEN(R$):L2=LEN(T$)
  78. 810  PRINT:PRINT:PRINT"Regular deposits of: ";:COLOR 10,8:LOCATE 17,(22-(13-L1))
  79. 815  PRINT USING V$;R;:COLOR 7:PRINT" will yield:";:PRINT USING V$;T:PRINT" in: ";Y;" years"
  80. 820  LOCATE 25,1:INPUT "Another run (Y or N): ";ANS$
  81. 830  IF LEFT$(ANS$,1)="Y" THEN 690 ELSE 40
  82. 880  GOSUB 4500:PRINT"                      Regular Wuthdrawals from an Investment":PRINT D$:LOCATE 23,1:PRINT D$;
  83. 910  LOCATE 8,1:INPUT "Enter the amount of your initial investment: ";P:LOCATE 8,63:PRINT USING V$;P
  84. 920  INPUT "Enter nominal interest rate: ";I:LOCATE 10,63:PRINT I
  85. 940  PRINT:INPUT "Enter the number of withdrawals each year: ";N:LOCATE 12,63:PRINT N
  86. 950  PRINT:INPUT "Enter the number of years: ";Y:LOCATE 14,63:PRINT Y
  87. 970  I=I/N/100
  88. 980  R=P*(I/((I+1)^(N*Y)-1)+I)
  89. 990  LOCATE 18,1:PRINT"You may withdraw: ";:COLOR 15:PRINT USING V$;R;:COLOR 7
  90. 995  PRINT" from your account: ";N:PRINT"times per year for : ";Y;" years without reducing your initial investment"
  91. 1070  LOCATE 24,1:INPUT "Do you want another calculation (Y or N): ";ANS$
  92. 1080  IF ANS$="Y" THEN 880 ELSE 40
  93. 1100  GOSUB 4500:PRINT"                   INVESTMENT REQUIRED TO PROVIDE FUTURE VALUE":GOSUB 4510
  94. 1110  LOCATE 8,1:INPUT "Enter amount you wish to end up with: ";T:LOCATE 8,63:PRINT USING V$;T
  95. 1120  INPUT "Enter the number of compounding periods each year: ";N:LOCATE 10,63:PRINT N
  96. 1130  PRINT:INPUT "Enter the number of years for this investment: ";Y:LOCATE 12,63:PRINT Y
  97. 1140  PRINT:INPUT "Enter the nominal interest rate: ";I:LOCATE 14,63:PRINT I
  98. 1220  I1=I
  99. 1230  I=I/N/100
  100. 1240  P=T/(I+1)^(N*Y)
  101. 1250  LOCATE 18,1:PRINT"You must invest: ";:COLOR 15:PRINT USING V$;P;:COLOR 7:PRINT" to yield: ";:PRINT USING V$;T
  102. 1260  LOCATE 24,1:INPUT "Do you want to make another calculation: ";ANS$
  103. 1270  IF ANS$="Y" THEN 1100 ELSE 40
  104. 1330  GOSUB 4500:PRINT"                         MINIMUM INVESTMENT FOR INCOME";:PRINT D$:LOCATE 23,1:PRINT D$;:LOCATE 8,1
  105. 1380  INPUT "Enter number of withdrawals each year: ";N:LOCATE 8,63:PRINT USING V$;Y
  106. 1390  INPUT "Enter amount of each withdrawal: ";R:LOCATE 10,63:PRINT USING V$;R
  107. 1420  INPUT "Enter the nominal interest rate: ";I:LOCATE 12,63:PRINT USING I$;I
  108. 1430  PRINT:INPUT "Withdrawal to occur for how many years: ";Y:LOCATE 14,63:PRINT Y
  109. 1450  I1=I
  110. 1460  I=I/100
  111. 1470  P=R*N/I*(1-1/((1+I/N)^(N*Y)))
  112. 1490  LOCATE 18,1:PRINT"A minimum investment of: ";:COLOR 15:PRINT USING V$;P;:COLOR 7:PRINT" will yeild your desired return"
  113. 1500  LOCATE 24,1:INPUT "Do you want another calculation (Y or N): ";ANS$
  114. 1510  IF ANS$="Y" THEN 1330 ELSE 40
  115. 1560  CLS:PRINT D$:PRINT"                     NOMINAL INTEREST ON INVESTMENTS:":PRINT D$:LOCATE 23,1:PRINT D$;
  116. 1570  LOCATE 8,1:INPUT "Enter the amount of the principal: ";P:LOCATE 8,63:PRINT USING V$;P
  117. 1580  INPUT "Enter total amount of investment: ";T:LOCATE 10,63:PRINT USING V$;T
  118. 1630  INPUT "Enter the number of years of the investment: ";Y:LOCATE 12,63:PRINT Y
  119. 1670  PRINT:INPUT "Enter the comounding periods each year: ";N:LOCATE 14,63:PRINT N
  120. 1680  I2=N*((T/P)^(1/(N*Y))-1)*100
  121. 1700  LOCATE 18,1:PRINT "The nominal interest rate for the above parameters is: ";:COLOR 15:PRINT I2;:COLOR 7
  122. 1710  LOCATE 25,1:INPUT "Do you want another calculation (Y or N): ";ANS$
  123. 1720  IF ANS$="Y" THEN 1560 ELSE 40
  124. 1780  GOSUB 4500:PRINT"                        EFFECTIVE INTEREST ON INVESTMENTS";:GOSUB 4510
  125. 1830   LOCATE 8,1:INPUT "Enter the amount of the initial investment";P:LOCATE 8,63:PRINT USING V$;P
  126. 1850   INPUT "Enter the desired future value: ";T:LOCATE 10,63:PRINT USING V$;T
  127. 1870   INPUT "Enter the life of the investment in years";Y:LOCATE 12,72:PRINT Y;"Years"
  128. 1880   A=((T / P) ^ (1 / Y) - 1) * 100
  129. 1900   LOCATE 14,1:PRINT"The effective annual interest rate of the investment is:";:COLOR 10,8:PRINT USING PR$;A:COLOR 7
  130. 1930  LOCATE 25,1:INPUT "Do you want to run another (Y or N): ";ANS$:IF LEFT$(ANS$,1)=Y$ THEN 1780 ELSE 40
  131. 1940   PRINT : IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 1780
  132. 1950   GOTO 40
  133. 1960   REM  EARNED INTEREST TABLE
  134. 1970   CLS:PRINT D$
  135. 1980   PRINT "#9 EARNED INTEREST TABLE FOR INVESTMENT"
  136. 1990   PRINT 
  137. 2000   PRINT D$
  138. 2010   PRINT "  ******** UNDER CONSTRUCTION ********"
  139. 2020   FOR I = 1 TO 2000: NEXT I: GOTO 40
  140. 2030   REM  DEPRECIATION RATE ON INVESTMENT
  141. 2040   GOSUB 4500
  142. 2050   PRINT "                   ANNUAL DEPRECIATION RATE OF AN INVESTMENT"
  143. 2060   GOSUB 4510
  144. 2080   LOCATE 8,1:INPUT "Enter the Original Price of the Item";P:LOCATE 8,63:PRINT USING V$;P
  145. 2100   INPUT "Enter the Resale Price of the Item";T:LOCATE 10,63:PRINT USING V$;T
  146. 2120   INPUT "Enter the Item's Life in Years";Y:LOCATE 12,73:PRINT USING I2$;Y;:PRINT" Years"
  147. 2140  D = 100 * (1 - (T / P) ^ (1 / Y))
  148. 2160   LOCATE 16,1:PRINT "If You Purchased This Item for:";:PRINT USING V$;P;:PRINT" and Sold it ";:PRINT USING I2$;Y;:PRINT" Years Later-"
  149. 2180   PRINT "for: ";:PRINT USING V$;T;:PRINT", the Actual Depreciation Rate is: ";:COLOR 10,8:PRINT USING PR$;D:COLOR 7
  150. 2200   LOCATE 25,1:INPUT "Another Run (Y or N): ";ANS$
  151. 2210   IF  LEFT$ (ANS$,1) = "Y" THEN 2040 ELSE 40
  152. 2230   REM  CALCULATE THE AMOUNT OF DEPREC OF AN ITEM
  153. 2240   GOSUB 4500
  154. 2250   PRINT "                        AMOUNT DEPRECIATED WITHIN A YEAR"
  155. 2260   GOSUB 4510
  156. 2270   LOCATE 8,1:INPUT "Enter the Original Price of the Item:";P:LOCATE 8,63:PRINT USING V$;P
  157. 2280   PRINT 
  158. 2290  K = 100
  159. 2300   INPUT "WHAT PERCENT DO YOU WANT TO DEPRECIATE";I
  160. 2310   PRINT 
  161. 2320  I = I / 100
  162. 2330   PRINT : FOR Y = 1 TO K
  163. 2340  D = P * I * (1 - I) ^ (Y - 1)
  164. 2350   PRINT "YEAR #";Y;"DEPRECIATION IS $"; D: PRINT 
  165. 2360  X = X + 1: IF X = 5 THEN X = 0
  166. 2370   PRINT "PRESS RETURN FOR MORE": INPUT X$: PRINT 
  167. 2380   IF D >  = 2 THEN  NEXT Y
  168. 2390   PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  169. 2400   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2230
  170. 2410   GOTO 40
  171. 2420   CLS:PRINT D$
  172. 2430   PRINT "   #12 CALCULATE THE SALVAGE VALUE"
  173. 2440   PRINT "              OF AN ITEM..."
  174. 2450   PRINT D$
  175. 2460   INPUT "ENTER THE ORIGINAL PRICE OF THE ITEM";P
  176. 2470   PRINT 
  177. 2480   INPUT "ENTER THE ITEM'S DEPRECIATION RATE";I
  178. 2490   PRINT 
  179. 2500  K = 100
  180. 2510   FOR Y = 1 TO K
  181. 2520  S =  P * (1 - I / 100) ^ Y
  182. 2530   PRINT "YEAR #";Y;"SALVAGE VALUE IS $";S
  183. 2540   PRINT 
  184. 2550  X = X + 1: IF X = 5 THEN X = 0
  185. 2560   PRINT "PRESS RETURN FOR MORE": INPUT X$: PRINT 
  186. 2570   IF S >  = 2 THEN  NEXT Y
  187. 2580   PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  188. 2590   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2420
  189. 2600   GOTO 40
  190. 2610   REM  FIND AMOUNT OF DISC PAPER
  191. 2620   CLS:PRINT D$
  192. 2630   PRINT "#13 CALCULATE THE NET COST OF DISCOUNTED"
  193. 2640   PRINT "                 PAPER.."
  194. 2650   PRINT D$
  195. 2660   PRINT 
  196. 2670   INPUT "ENTER THE FUTURE VALUE OF THE NOTE";T
  197. 2680   INPUT "ENTER THE DISCOUNT RATE";D
  198. 2690   PRINT 
  199. 2700   INPUT "ENTER THE NUMBER OF DAYS TO MATURITY";N
  200. 2710  D = D / 100
  201. 2720  D1 = T * D * N / 360
  202. 2730   PRINT 
  203. 2740   PRINT "IF YOU PURCHASE A NOTE WORTH $";T
  204. 2750   PRINT "                DUE IN";N;"DAYS"
  205. 2760   PRINT "AT A DISCOUNT RATE OF";D * 100;"PERCENT,"
  206. 2770   PRINT "THE DISCOUNT AMOUNT WILL BE $";D1
  207. 2780   PRINT "AND THE COST WILL BE $";T - D1;" ."
  208. 2790   PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  209. 2800   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2610
  210. 2810   GOTO 40
  211. 2820   CLS:PRINT D$
  212. 2830   PRINT  TAB( 5)"#14  PRINCIPAL ON A LOAN"
  213. 2840   PRINT 
  214. 2850   PRINT D$
  215. 2860   INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  216. 2870   PRINT 
  217. 2880   INPUT "WHAT IS THE AMOUNT OF EACH PAYMENT";R
  218. 2890   PRINT 
  219. 2900   INPUT "WHAT IS THE LOAN ANNUAL INTEREST RATE";I
  220. 2910   PRINT 
  221. 2920   INPUT "ENTER THE LIFE OF THE LOAN IN YEARS";Y
  222. 2930  P = R * N * (1 - 1 / ((I / 100) / N + 1) ^ (N * Y)) / (I / 100)
  223. 2940  PRINT:PRINT "The principal on this loan is: "; USING "$$#,###,###.##";P
  224. 2950   PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  225. 2960   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2820
  226. 2970   GOTO 40
  227. 2980   CLS:PRINT D$
  228. 2990   PRINT "    #15 REGULAR PAYMENT ON A LOAN.."
  229. 3000   PRINT 
  230. 3010   PRINT D$
  231. 3020   PRINT "WHAT IS THE LIFE OF THE LOAN IN YEARS"
  232. 3030   INPUT Y
  233. 3040  INPUT"WHAT IS TRHE ANNUAL INTEREST RATE ";I
  234. 3050   INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  235. 3060   INPUT "WHAT IS THE LOAN PRINCIPAL AMOUNT";P
  236. 3070   PRINT : PRINT :R = ((I / 100) * P / N) / (1 - 1 / ((I / 100) / N + 1) ^ (N * Y))
  237. 3080  I1 = I
  238. 3090  PRINT "Regular payments of "; USING "$$#,###,###.##";R;
  239. 3100  PRINT " made ";N;" times each year"
  240. 3110  PRINT "are required to satisfy"
  241. 3120  PRINT "a loan of "; USING "$$#,###,###.##";P;: PRINT " for a period of "; USING "###";Y;: PRINT" years"
  242. 3130  PRINT "at an interest rate of";I1;" pecent per annum."
  243. 3140   PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  244. 3150   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2980
  245. 3160   GOTO 40
  246. 3170   CLS:PRINT D$
  247. 3180   PRINT  TAB( 10)"#16  LAST PAYMENT ON A LOAN"
  248. 3190   PRINT 
  249. 3200   PRINT D$
  250. 3210   INPUT "WHAT IS THE LIFE OF THE LOAN IN YEARS";Y
  251. 3220   INPUT "ENTER THE ANNUAL INTEREST RATE";I
  252. 3230   PRINT 
  253. 3240   INPUT "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R
  254. 3250   PRINT 
  255. 3260   INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  256. 3270   PRINT 
  257. 3280   INPUT "ENTER THE AMOUNT OF THE LOAN PRINCIPAL";P
  258. 3290   PRINT :I1 = I:I = I / 100:BO = P
  259. 3300   IF N * Y > 100 THEN  PRINT  TAB( 20)"WORKING THE PROBLEM"
  260. 3310   FOR J1 = 1 TO N * Y
  261. 3320  I2 =  INT ((BO * I / N) * 100 + 0.5) / 100
  262. 3330  A = R - I2
  263. 3340  BO = BO - A
  264. 3350   NEXT J1
  265. 3360   PRINT "THE LAST PAYMENT FOR THIS LOAN,"
  266. 3370   PRINT "WILL BE $"; INT ((R + BO) * 100 + 0.5) / 100
  267. 3380   PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  268. 3390   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3170
  269. 3400   GOTO 40
  270. 3410   CLS:PRINT D$
  271. 3420   PRINT "     #17 REMAINING BALANCE ON A LOAN"
  272. 3430   PRINT 
  273. 3440   PRINT D$
  274. 3450   INPUT "ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N
  275. 3460   PRINT 
  276. 3470   INPUT "ENTER THE ANNUAL INTEREST RATE";I
  277. 3480   PRINT 
  278. 3490   INPUT "WHAT IS THE AMOUNT OF EACH PAYMENT";R
  279. 3500   PRINT 
  280. 3510   INPUT "WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P
  281. 3520   PRINT 
  282. 3530   PRINT "ENTER THE LAST PAYMENT MADE ,"
  283. 3540   INPUT "          (PAYMENT #, YEAR # )";N1,Y
  284. 3550   PRINT : PRINT "WORKING ON PROBLEM"
  285. 3560  I = I / 100
  286. 3570  BO = P
  287. 3580   FOR J1% = 1 TO N * (Y - 1) + N1
  288. 3590  I1 =  INT ((BO * I / N) * 100 + 0.5) / 100
  289. 3600  A = R - I1
  290. 3610  BO = BO - A
  291. 3620   NEXT J1%
  292. 3630   PRINT : PRINT "THE REMAINING BALANCE IS $"; INT (BO * 100 + 0.5) / 100
  293. 3640   PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  294. 3650   IF   LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3410
  295. 3660   GOTO 40
  296. 3670   CLS:PRINT D$
  297. 3680   PRINT  TAB( 10)"THE TERM OF A LOAN"
  298. 3690   PRINT 
  299. 3700   PRINT D$
  300. 3710   INPUT "ENTER THE NUMBER OF PAYMENTS EACH YEAR";N
  301. 3720   PRINT 
  302. 3730   INPUT "ENTER THE ANNUAL INTEREST RATE";I
  303. 3740   PRINT 
  304. 3750   INPUT "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R
  305. 3760   PRINT 
  306. 3770   INPUT "WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P
  307. 3780   PRINT 
  308. 3790  Y =  - ( LOG (1 - (P * (I / 100)) / (N * R)) / ( LOG (1 + I / 100 / N) * N))
  309. 3800   PRINT "A TERM OF"; INT (Y * 10 + 0.5) / 10;"YEARS WILL SATISFY THIS LOAN."
  310. 3810   PRINT "SATISFY THIS SCHEDULE."
  311. 3820   PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  312. 3830   IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3670
  313. 3840   GOTO 40
  314. 3850   CLS:PRINT D$
  315. 3860   PRINT "#19  THE ANNUAL INTEREST RATE ON A LOAN"
  316. 3870   PRINT D$
  317. 3880   PRINT "  ******** UNDER CONSTRUCTION ********"
  318. 3890   FOR I = 1 TO 2000: NEXT I
  319. 3900   GOTO 40
  320. 3910   CLS:PRINT D$
  321. 3920   PRINT "                         THE MORTGAGE AMORTIZATION TABLE"
  322. 3930   PRINT 
  323. 3940   PRINT "                           COMPUTE INTEREST PAYMENTS..."
  324. 3950   PRINT 
  325. 3960   PRINT D$
  326. 3970   PRINT D$
  327. 3980   REM  LEADING & TRAILING ZERO'S NOT ?"ED"
  328. 3990  C = 0
  329. 4000   INPUT "Enter Amount of Loan";A
  330. 4010   INPUT "Amount of Interest in Percent";J
  331. 4020   INPUT "Nunber of Years";N
  332. 4030  J = J / 100
  333. 4040  N = N * 12:I = J / 12:B = 1 + I:R = A * I / (1 - 1 / B ^ N)
  334. 4050   PRINT "Amount per Payment =";USING"$$,###,###.##";R
  335. 4060  Q = (R * N - A)
  336. 4080   PRINT "Total Interest=";USING"$$,###,###.##";Q
  337. 4090   PRINT "To Begin Listing Hit Any Key...":F=0
  338. 4100  A$=INKEY$
  339. 4110  IF A$="" THEN 4100
  340. 4120   PRINT :B = A
  341. 4130  GOSUB 4370
  342. 4140   PRINT "PMT     INTEREST    PRINCIPAL      BALANCE"
  343. 4150  C = C + 1:L = B * I:P = R - L:B = B - P:IF B<0 THEN B=0
  344. 4160  PRINT USING"###";C;:PRINT USING"$$,###,###.##";L;P;B
  345. 4170  F = F + 1
  346. 4180   IF F = 20 THEN 4280
  347. 4190  IF N>C THEN 4150
  348. 4200  D=R+B
  349. 4230   PRINT "Last Payment was...";USING"$$,###,###.##";D
  350. 4240   INPUT "Do You Want to Run Another (Y/N)";Y$
  351. 4250   IF  LEFT$ (Y$,1) = "Y" THEN 3910 ELSE 40
  352. 4280  PRINT"TO CONTINUE STRIKE ANY KEY, ESC TO STOP"
  353. 4290  A$=INKEY$: IF A$="" THEN 4290
  354. 4300  IF A$=CHR$(27) THEN GOSUB 4370: GOTO 4240
  355. 4310   PRINT 
  356. 4320  F = 0
  357. 4330  GOSUB 4370
  358. 4340  GOTO 4140
  359. 4370  CLS:RETURN
  360. 4380  CLS:RETURN
  361. 4390   REM 
  362. 4500  CLS:PRINT D$;:RETURN
  363. 4510  PRINT D$;:LOCATE 23,1:PRINT D$;:RETURN
  364. 4999  STOP
  365. 5000  CLS:LOCATE 12,39:COLOR 16,7:PRINT"Bye":PLAY"C11D11E11D6E11C4":COLOR 7,0:LOCATE 23,1:END
  366. 8880   A=((T / P) ^ (1 / Y) - 1) * 100
  367.